home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / winsweep / main.bas < prev    next >
BASIC Source File  |  1995-05-08  |  175b  |  14 lines
  1.  
  2. Sub main ()
  3.     i = form1.file1.listindex
  4.     If i > -1 Then
  5.         form1.file1.listindex = 0
  6.     End If
  7.     form1.Show
  8. End Sub
  9.  
  10. Sub setcursor ()
  11.     
  12. End Sub
  13.  
  14.